<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% 'JAMES GJERDE 'RIVERKING TECHNOLOGIES FLASHGAME PAGE 2003 On Error Resume Next Dim objConn Dim strSubcategory Dim SQL strSubcategory=Request.QueryString("subcategory") SQL="INSERT INTO SUBCAT(subcategory) VALUES('" & strSubcategory & "')" Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "DSN=riverweb" If Err.Number=0 Then objConn.Execute(SQL) End If %> Riverking Technologies <%If Err.Number<>0 Then %>

An error has occurred. The connection attempt failed.

Please contact the webmaster if you have any questions. Click here to return to the homepage.

<%Else%>
Copyright Riverking, Inc. 2002. All Rights Reserved.
<% objConn.Close Set objConn = Nothing End If %>